home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Collection - Games / Games Ultimate Collection.iso / 1133 / wg3.inc < prev    next >
Encoding:
Text File  |  1988-07-10  |  3.4 KB  |  118 lines

  1. Procedure Instructions;
  2. {On-screen tutorial (very brief, since disk should have documentation)}
  3. Begin;
  4.    ClrScr;                          {Show first file}
  5.    File_name := 'WGINS1.TXT';
  6.    ShowText;
  7.    GotoXY(5,10);
  8.    Colour_Selection;                  {Demonstrate grid and solar system box}
  9.    Draw_Grid;
  10.    Writeln;
  11.    Writeln('Star grid used in this program:'#10#13' Each square is a light-year across');
  12.    Writeln(' A total of 1000 cubic light years');
  13.    Beep_Wait;
  14.    If Demonstration = 2 then exit;
  15.    Protected_System := System_Details [2,4]; {safeguard this system (if any)}
  16.    System_Details [2,4] := '246G5    0   2 1 4   5   6   7 8 9 S   ';
  17.    Y_Coordinate := 2;
  18.    X_Coordinate := 4;
  19.    Old_Systems;
  20.    System_Location_XYZ;
  21.    Writeln('This system is at coordinates 2,4,6');
  22.    Beep_Wait; If Demonstration = 2 then exit;
  23.    Writeln;
  24.    Graphwindow(0,0,319,199);
  25.    Old_System_Map;
  26.    Graphwindow(0,33,319,199);
  27.    ClearScreen;
  28.    Graphwindow(0,0,319,199);
  29.    File_name := 'WGINS2.TXT';
  30.    ShowText;
  31.    ClearScreen;
  32.    System_Details [2,4] := '246*'+CHR(10)+'    4 0 2 3 9 0 3 3       0       ';
  33.    Old_System_Map;
  34.    Graphwindow(300,33,315,66);
  35.    Black_Hole;
  36.    Graphwindow(300,66,315,99);
  37.    Proto_Star;
  38.    Graphwindow(0,0,319,199);
  39.    GotoXY(1,5);
  40.    File_name := 'WGINS3.TXT';
  41.    ShowText;
  42.    TextMode(C80);
  43.    GotoXY(1,1);
  44.    File_name := 'WGINS4.TXT';
  45.    ShowText;
  46.    ClrScr;
  47.    GotoXY(1,1);
  48.    File_name := 'WGINS5.TXT';
  49.    ShowText;
  50.    ClrScr;
  51.    If Dummy <> 'S' then begin;
  52.      Orrory(1);
  53.      If Dummy <> 'X' then Planet_Details(1);
  54.    End;
  55.    Textmode(C80);
  56.    ClrScr;
  57.    File_name := 'WGINS6.TXT';
  58.    ShowText;
  59.    System_Details [2,4] := Protected_System; {return to original state}
  60.    ClrScr;
  61. End;
  62.  
  63. Procedure Draw_A_Globe;
  64. Begin;
  65.   For I := 1 to 200 Do Plot (Random(320),Random(200),Random(4));
  66.   Writeln ('            World  Generator'#10#13' For Science Fiction Role-Playing Games');
  67.   Writeln (#10#13'Copyright <C> Marcus L. Rowland 1987, 88');
  68.   For I := -5 to 152 do
  69.     Begin;
  70.       R := Round (I/20);
  71.       Circle (320-I,92+R,R,2);
  72.       Circle (I,100,R,3);
  73.       Circle (I,100,R+1,0);
  74.       Circle (320-I,92+R,R+1,0);
  75.       If keypressed then exit;
  76.     End;
  77.   Pattern(Grid);
  78.   Fillpattern(40,39,280,159,1);
  79.   For I := 0 to 54 Do Circle (160,99,I,3);
  80.   Graphwindow(100,50,220,150);
  81.   Slartibartfast(0,3,7,120);
  82.   Graphwindow(0,0,319,219);
  83. End;
  84.  
  85. Procedure Titles;
  86. Begin;
  87.   Draw_A_Globe;
  88.   GotoXY(9,24);
  89.   If Demonstration = 0 then Write('Press any key to continue')
  90.    else write ('Press any key to interrupt');
  91.   Beep_Wait; If Demonstration = 2 then exit;
  92.   Textmode(C80);
  93.   ClrScr;
  94.   WG_Textcolor(yellow);
  95.   File_Name := 'TITLES.TXT';
  96.   Showtext;
  97. End;
  98.  
  99. Procedure Rolling_Demonstration;
  100. Begin;
  101.   Top_Of_Menu_Screens;
  102.   Writeln('Rolling Demonstration selected'#10#13'This procedure over-writes systems in memory.');
  103.   Writeln('If you want to continue, press "Y";'#10#13'Press any other key to exit.');
  104.   Beep_Wait;
  105.   If Dummy <> 'Y' then exit;
  106.   Demonstration := 1;
  107.   Repeat
  108.     Colour_Selection;
  109.     Titles;
  110.     If Demonstration = 1 then Instructions;
  111.     If demonstration = 1 then Read_Data;
  112.     If demonstration = 1 then Sector_Statistics(0);
  113.     If demonstration = 1 then solar_systems;
  114.     If demonstration = 1 then Grand_Tour;
  115.   Until Demonstration <> 1;
  116.   Demonstration := 0;
  117. End;
  118.